Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnStart.Click
  Dim Tosses, Heads, ThisToss, Target As Integer
  Heads = 0     ' liczba orw
  Tosses = 0    ' liczba rzutw

  If txtNumber.Text <> "" Then ' Sprawdzamy, czy zostaa wprowadzona
                              ' liczba
    Target = CInt(txtNumber.Text)
  Else
    MessageBox.Show("Powiniene wprowadzi liczb.")
    Exit Sub
  End If
  Do While Heads <> Target
    ThisToss = TossACoin() ' Funkcja zwraca 1 w przypadku
                           ' wyrzucenia ora
    If ThisToss = 1 Then
      Heads += 1       ' Jeli by orze, zwikszamy licznik
    Else
      Heads = 0        ' Reszka... zaczynamy od pocztku
    End If
    Tosses += 1       ' Licznik rzutw
  Loop
  txtTossCounter.Text = CStr(Tosses)
End Sub
